/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Misc. C ƒ / Recorder / Recorder.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 52 65 63 6f 72 64 | 65 72 2e 63 00 00 00 00 |..Record|er.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 28 00 60 00 |.TEXTMPS| ...(.`.|
|00000050| 00 00 00 00 00 1d 23 00 | 00 01 7e a2 9c ea 45 a2 |......#.|..~...E.|
|00000060| 9c ea 45 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..E.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 13 00 00 |........|........|
|00000080| 2f 2a 09 46 69 6c 65 3a | 20 52 65 63 6f 72 64 65 |/*.File:| Recorde|
|00000090| 72 2e 63 0d 0d 09 4d 50 | 57 20 54 6f 6f 6c 20 66 |r.c...MP|W Tool f|
|000000a0| 6f 72 20 72 65 63 6f 72 | 64 69 6e 67 20 73 65 72 |or recor|ding ser|
|000000b0| 69 61 6c 20 6c 69 6e 65 | 20 74 72 61 66 66 69 63 |ial line| traffic|
|000000c0| 0d 09 0d 2a 2f 0d 0d 0d | 23 69 6e 63 6c 75 64 65 |...*/...|#include|
|000000d0| 20 3c 54 79 70 65 73 2e | 68 3e 0d 23 69 6e 63 6c | <Types.|h>.#incl|
|000000e0| 75 64 65 20 3c 51 75 69 | 63 6b 44 72 61 77 2e 68 |ude <Qui|ckDraw.h|
|000000f0| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 46 69 6c 65 |>.#inclu|de <File|
|00000100| 73 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 43 |s.h>.#in|clude <C|
|00000110| 75 72 73 6f 72 43 74 6c | 2e 68 3e 0d 23 69 6e 63 |ursorCtl|.h>.#inc|
|00000120| 6c 75 64 65 20 3c 53 74 | 72 69 6e 67 73 2e 68 3e |lude <St|rings.h>|
|00000130| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 43 52 4d 49 |..#inclu|de <CRMI|
|00000140| 6e 74 66 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |ntf.h>.#|include |
|00000150| 3c 43 54 42 55 74 69 6c | 73 2e 68 3e 0d 23 69 6e |<CTBUtil|s.h>.#in|
|00000160| 63 6c 75 64 65 20 3c 43 | 4d 49 6e 74 66 2e 68 3e |clude <C|MIntf.h>|
|00000170| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 46 54 49 6e 74 |.#includ|e <FTInt|
|00000180| 66 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 54 |f.h>.#in|clude <T|
|00000190| 4d 49 6e 74 66 2e 68 3e | 0d 0d 23 69 6e 63 6c 75 |MIntf.h>|..#inclu|
|000001a0| 64 65 20 3c 53 74 64 49 | 4f 2e 68 3e 0d 23 69 6e |de <StdI|O.h>.#in|
|000001b0| 63 6c 75 64 65 20 3c 53 | 74 64 4c 69 62 2e 68 3e |clude <S|tdLib.h>|
|000001c0| 0d 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 53 65 |..pascal| void Se|
|000001d0| 74 75 70 47 6c 6f 62 20 | 28 20 76 6f 69 64 20 29 |tupGlob |( void )|
|000001e0| 3b 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 52 65 |;.pascal| void Re|
|000001f0| 61 64 43 6f 6d 70 6c 65 | 74 69 6f 6e 47 6c 75 65 |adComple|tionGlue|
|00000200| 31 20 20 28 20 43 6f 6e | 6e 48 61 6e 64 6c 65 20 |1  ( Con|nHandle |
|00000210| 68 43 6f 6e 6e 20 29 3b | 0d 70 61 73 63 61 6c 20 |hConn );|.pascal |
|00000220| 76 6f 69 64 20 52 65 61 | 64 43 6f 6d 70 6c 65 74 |void Rea|dComplet|
|00000230| 69 6f 6e 47 6c 75 65 32 | 20 20 28 20 43 6f 6e 6e |ionGlue2|  ( Conn|
|00000240| 48 61 6e 64 6c 65 20 68 | 43 6f 6e 6e 20 29 3b 0d |Handle h|Conn );.|
|00000250| 70 61 73 63 61 6c 20 76 | 6f 69 64 20 57 72 69 74 |pascal v|oid Writ|
|00000260| 65 43 6f 6d 70 6c 65 74 | 69 6f 6e 47 6c 75 65 31 |eComplet|ionGlue1|
|00000270| 20 28 20 43 6f 6e 6e 48 | 61 6e 64 6c 65 20 68 43 | ( ConnH|andle hC|
|00000280| 6f 6e 6e 20 29 3b 0d 70 | 61 73 63 61 6c 20 76 6f |onn );.p|ascal vo|
|00000290| 69 64 20 57 72 69 74 65 | 43 6f 6d 70 6c 65 74 69 |id Write|Completi|
|000002a0| 6f 6e 47 6c 75 65 32 20 | 28 20 43 6f 6e 6e 48 61 |onGlue2 |( ConnHa|
|000002b0| 6e 64 6c 65 20 68 43 6f | 6e 6e 20 29 3b 0d 0d 23 |ndle hCo|nn );..#|
|000002c0| 64 65 66 69 6e 65 09 43 | 6f 6d 6d 54 6f 6f 6c 42 |define.C|ommToolB|
|000002d0| 6f 78 54 72 61 70 09 09 | 30 78 38 42 0d 23 64 65 |oxTrap..|0x8B.#de|
|000002e0| 66 69 6e 65 09 55 6e 69 | 6d 70 6c 65 6d 65 6e 74 |fine.Uni|mplement|
|000002f0| 65 64 54 72 61 70 09 30 | 78 39 46 0d 23 64 65 66 |edTrap.0|x9F.#def|
|00000300| 69 6e 65 09 43 68 65 63 | 6b 28 65 72 72 2c 73 74 |ine.Chec|k(err,st|
|00000310| 72 29 09 7b 20 5c 0d 09 | 09 09 09 09 09 4f 53 45 |r).{ \..|.....OSE|
|00000320| 72 72 20 65 72 72 58 59 | 5a 5a 59 3b 20 5c 0d 09 |rr errXY|ZZY; \..|
|00000330| 09 09 09 09 09 69 66 20 | 28 28 20 65 72 72 58 59 |.....if |(( errXY|
|00000340| 5a 5a 59 20 3d 20 28 20 | 65 72 72 20 29 29 20 21 |ZZY = ( |err )) !|
|00000350| 3d 20 6e 6f 45 72 72 20 | 29 20 5c 0d 09 09 09 09 |= noErr |) \.....|
|00000360| 09 09 09 66 70 72 69 6e | 74 66 20 28 20 73 74 64 |...fprin|tf ( std|
|00000370| 65 72 72 2c 20 22 45 72 | 72 6f 72 20 25 64 20 63 |err, "Er|ror %d c|
|00000380| 61 6c 6c 69 6e 67 20 25 | 73 5c 6e 22 2c 20 65 72 |alling %|s\n", er|
|00000390| 72 58 59 5a 5a 59 2c 20 | 73 74 72 20 29 3b 20 5c |rXYZZY, |str ); \|
|000003a0| 0d 09 09 09 09 09 09 65 | 6c 73 65 20 5c 0d 09 09 |.......e|lse \...|
|000003b0| 09 09 09 09 09 66 70 72 | 69 6e 74 66 20 28 20 73 |.....fpr|intf ( s|
|000003c0| 74 64 65 72 72 2c 20 22 | 25 73 20 3a 20 6e 6f 45 |tderr, "|%s : noE|
|000003d0| 72 72 5c 6e 22 2c 20 73 | 74 72 29 3b 20 5c 0d 09 |rr\n", s|tr); \..|
|000003e0| 09 09 09 09 09 7d 0d 23 | 64 65 66 69 6e 65 09 4f |.....}.#|define.O|
|000003f0| 55 54 43 4f 4e 46 49 47 | 53 54 52 09 22 42 61 75 |UTCONFIG|STR."Bau|
|00000400| 64 20 32 34 30 30 20 64 | 61 74 61 42 69 74 73 20 |d 2400 d|ataBits |
|00000410| 38 20 50 61 72 69 74 79 | 20 4e 6f 6e 65 20 53 74 |8 Parity| None St|
|00000420| 6f 70 42 69 74 73 20 31 | 20 50 6f 72 74 20 5c 22 |opBits 1| Port \"|
|00000430| 4d 6f 64 65 6d 20 50 6f | 72 74 5c 22 22 20 5c 0d |Modem Po|rt\"" \.|
|00000440| 09 09 09 09 09 09 22 20 | 48 61 6e 64 73 68 61 6b |......" |Handshak|
|00000450| 65 20 4e 6f 6e 65 20 48 | 6f 6c 64 43 6f 6e 6e 65 |e None H|oldConne|
|00000460| 63 74 69 6f 6e 20 46 61 | 6c 73 65 20 52 65 6d 69 |ction Fa|lse Remi|
|00000470| 6e 64 44 69 73 63 6f 6e | 6e 65 63 74 20 46 61 6c |ndDiscon|nect Fal|
|00000480| 73 65 22 0d 23 64 65 66 | 69 6e 65 09 49 4e 43 4f |se".#def|ine.INCO|
|00000490| 4e 46 49 47 53 54 52 09 | 09 22 42 61 75 64 20 32 |NFIGSTR.|."Baud 2|
|000004a0| 34 30 30 20 64 61 74 61 | 42 69 74 73 20 38 20 50 |400 data|Bits 8 P|
|000004b0| 61 72 69 74 79 20 4e 6f | 6e 65 20 53 74 6f 70 42 |arity No|ne StopB|
|000004c0| 69 74 73 20 31 20 50 6f | 72 74 20 5c 22 50 72 69 |its 1 Po|rt \"Pri|
|000004d0| 6e 74 65 72 20 50 6f 72 | 74 5c 22 22 20 5c 0d 09 |nter Por|t\"" \..|
|000004e0| 09 09 09 09 09 22 20 48 | 61 6e 64 73 68 61 6b 65 |....." H|andshake|
|000004f0| 20 4e 6f 6e 65 20 48 6f | 6c 64 43 6f 6e 6e 65 63 | None Ho|ldConnec|
|00000500| 74 69 6f 6e 20 46 61 6c | 73 65 20 52 65 6d 69 6e |tion Fal|se Remin|
|00000510| 64 44 69 73 63 6f 6e 6e | 65 63 74 20 46 61 6c 73 |dDisconn|ect Fals|
|00000520| 65 22 0d 0d 23 64 65 66 | 69 6e 65 09 09 42 55 46 |e"..#def|ine..BUF|
|00000530| 5f 53 49 5a 45 09 31 30 | 32 34 0d 23 64 65 66 69 |_SIZE.10|24.#defi|
|00000540| 6e 65 09 09 46 49 4c 45 | 5f 53 49 5a 45 09 35 31 |ne..FILE|_SIZE.51|
|00000550| 32 30 0d 0d 73 68 6f 72 | 74 09 09 70 72 6f 63 49 |20..shor|t..procI|
|00000560| 44 31 3b 0d 73 68 6f 72 | 74 09 09 70 72 6f 63 49 |D1;.shor|t..procI|
|00000570| 44 32 3b 0d 43 6f 6e 6e | 48 61 6e 64 6c 65 09 73 |D2;.Conn|Handle.s|
|00000580| 74 72 65 61 6d 31 3b 0d | 43 6f 6e 6e 48 61 6e 64 |tream1;.|ConnHand|
|00000590| 6c 65 09 73 74 72 65 61 | 6d 32 3b 0d 63 68 61 72 |le.strea|m2;.char|
|000005a0| 09 09 62 75 66 66 65 72 | 31 09 5b 20 42 55 46 5f |..buffer|1.[ BUF_|
|000005b0| 53 49 5a 45 20 5d 3b 0d | 63 68 61 72 09 09 62 75 |SIZE ];.|char..bu|
|000005c0| 66 66 65 72 32 09 5b 20 | 42 55 46 5f 53 49 5a 45 |ffer2.[ |BUF_SIZE|
|000005d0| 20 5d 3b 0d 6c 6f 6e 67 | 09 09 72 65 61 64 53 69 | ];.long|..readSi|
|000005e0| 7a 65 31 3b 0d 6c 6f 6e | 67 09 09 77 72 69 74 65 |ze1;.lon|g..write|
|000005f0| 53 69 7a 65 31 3b 0d 6c | 6f 6e 67 09 09 72 65 61 |Size1;.l|ong..rea|
|00000600| 64 53 69 7a 65 32 3b 0d | 6c 6f 6e 67 09 09 77 72 |dSize2;.|long..wr|
|00000610| 69 74 65 53 69 7a 65 32 | 3b 0d 43 4d 46 6c 61 67 |iteSize2|;.CMFlag|
|00000620| 73 09 09 69 6e 46 6c 61 | 67 73 31 3b 0d 43 4d 46 |s..inFla|gs1;.CMF|
|00000630| 6c 61 67 73 09 09 69 6e | 46 6c 61 67 73 32 3b 0d |lags..in|Flags2;.|
|00000640| 73 68 6f 72 74 09 09 66 | 52 65 66 4e 75 6d 3b 0d |short..f|RefNum;.|
|00000650| 73 68 6f 72 74 09 09 63 | 75 72 42 75 66 66 65 72 |short..c|urBuffer|
|00000660| 3b 0d 73 68 6f 72 74 09 | 09 6c 61 73 74 42 75 66 |;.short.|.lastBuf|
|00000670| 66 65 72 3b 0d 63 68 61 | 72 09 09 2a 6e 65 78 74 |fer;.cha|r..*next|
|00000680| 43 68 61 72 3b 0d 63 68 | 61 72 09 09 66 42 75 66 |Char;.ch|ar..fBuf|
|00000690| 66 65 72 31 20 5b 20 46 | 49 4c 45 5f 53 49 5a 45 |fer1 [ F|ILE_SIZE|
|000006a0| 20 5d 3b 0d 63 68 61 72 | 09 09 66 42 75 66 66 65 | ];.char|..fBuffe|
|000006b0| 72 32 20 5b 20 46 49 4c | 45 5f 53 49 5a 45 20 5d |r2 [ FIL|E_SIZE ]|
|000006c0| 3b 0d 0d 2f 2a 09 49 73 | 20 74 68 65 20 43 6f 6d |;../*.Is| the Com|
|000006d0| 6d 20 54 6f 6f 6c 62 6f | 78 20 61 63 74 75 61 6c |m Toolbo|x actual|
|000006e0| 6c 79 20 69 6e 73 74 61 | 6c 6c 65 64 20 3f 3f 20 |ly insta|lled ?? |
|000006f0| 2a 2f 0d 42 6f 6f 6c 65 | 61 6e 09 09 49 73 43 54 |*/.Boole|an..IsCT|
|00000700| 42 49 6e 73 74 61 6c 6c | 65 64 09 28 20 29 20 7b |BInstall|ed.( ) {|
|00000710| 0d 09 72 65 74 75 72 6e | 20 4e 47 65 74 54 72 61 |..return| NGetTra|
|00000720| 70 41 64 64 72 65 73 73 | 20 28 20 55 6e 69 6d 70 |pAddress| ( Unimp|
|00000730| 6c 65 6d 65 6e 74 65 64 | 54 72 61 70 2c 20 4f 53 |lemented|Trap, OS|
|00000740| 54 72 61 70 20 29 20 21 | 3d 0d 09 09 09 4e 47 65 |Trap ) !|=....NGe|
|00000750| 74 54 72 61 70 41 64 64 | 72 65 73 73 20 28 20 43 |tTrapAdd|ress ( C|
|00000760| 6f 6d 6d 54 6f 6f 6c 42 | 6f 78 54 72 61 70 2c 20 |ommToolB|oxTrap, |
|00000770| 4f 53 54 72 61 70 20 29 | 3b 0d 09 7d 0d 0d 73 68 |OSTrap )|;..}..sh|
|00000780| 6f 72 74 09 49 6e 69 74 | 41 6c 6c 20 28 20 76 6f |ort.Init|All ( vo|
|00000790| 69 64 20 29 20 7b 0d 09 | 4f 53 45 72 72 09 65 72 |id ) {..|OSErr.er|
|000007a0| 72 3b 0d 0d 09 49 6e 69 | 74 47 72 61 66 20 28 20 |r;...Ini|tGraf ( |
|000007b0| 26 71 64 2e 74 68 65 50 | 6f 72 74 20 29 3b 0d 2f |&qd.theP|ort );./|
|000007c0| 2a 0d 09 49 6e 69 74 46 | 6f 6e 74 73 20 28 29 3b |*..InitF|onts ();|
|000007d0| 0d 09 49 6e 69 74 57 69 | 6e 64 6f 77 73 20 28 29 |..InitWi|ndows ()|
|000007e0| 3b 0d 09 49 6e 69 74 4d | 65 6e 75 73 20 28 29 3b |;..InitM|enus ();|
|000007f0| 0d 09 54 45 49 6e 69 74 | 20 28 29 3b 0d 09 49 6e |..TEInit| ();..In|
|00000800| 69 74 44 69 61 6c 6f 67 | 73 20 28 20 4e 55 4c 4c |itDialog|s ( NULL|
|00000810| 20 29 3b 0d 09 49 6e 69 | 74 43 75 72 73 6f 72 20 | );..Ini|tCursor |
|00000820| 28 29 3b 0d 2a 2f 0d 0d | 09 49 6e 69 74 43 75 72 |();.*/..|.InitCur|
|00000830| 73 6f 72 43 74 6c 20 28 | 20 4e 55 4c 4c 20 29 3b |sorCtl (| NULL );|
|00000840| 0d 09 53 65 74 75 70 47 | 6c 6f 62 20 28 29 3b 0d |..SetupG|lob ();.|
|00000850| 09 0d 09 69 66 20 28 20 | 21 49 73 43 54 42 49 6e |...if ( |!IsCTBIn|
|00000860| 73 74 61 6c 6c 65 64 20 | 29 20 7b 0d 09 09 66 70 |stalled |) {...fp|
|00000870| 72 69 6e 74 66 20 28 20 | 73 74 64 65 72 72 2c 20 |rintf ( |stderr, |
|00000880| 22 43 6f 6d 6d 20 54 6f | 6f 6c 62 6f 78 20 6e 6f |"Comm To|olbox no|
|00000890| 74 20 69 6e 73 74 61 6c | 6c 65 64 21 5c 6e 22 20 |t instal|led!\n" |
|000008a0| 29 3b 0d 09 09 72 65 74 | 75 72 6e 20 31 3b 0d 09 |);...ret|urn 1;..|
|000008b0| 09 7d 0d 0d 2f 2a 09 4c | 6f 61 64 20 75 70 20 74 |.}../*.L|oad up t|
|000008c0| 68 65 20 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |he Commu|nication|
|000008d0| 73 20 54 6f 6f 6c 62 6f | 78 20 2a 2f 0d 09 28 76 |s Toolbo|x */..(v|
|000008e0| 6f 69 64 29 20 49 6e 69 | 74 43 54 42 55 74 69 6c |oid) Ini|tCTBUtil|
|000008f0| 69 74 69 65 73 20 28 29 | 3b 0d 09 28 76 6f 69 64 |ities ()|;..(void|
|00000900| 29 20 49 6e 69 74 43 52 | 4d 20 28 29 3b 0d 0d 09 |) InitCR|M ();...|
|00000910| 65 72 72 20 3d 20 49 6e | 69 74 54 4d 20 28 29 3b |err = In|itTM ();|
|00000920| 0d 09 69 66 20 28 20 65 | 72 72 20 3d 3d 20 74 6d |..if ( e|rr == tm|
|00000930| 4e 6f 54 6f 6f 6c 73 20 | 29 20 7b 0d 09 09 66 70 |NoTools |) {...fp|
|00000940| 72 69 6e 74 66 20 28 20 | 73 74 64 65 72 72 2c 20 |rintf ( |stderr, |
|00000950| 22 4e 6f 20 74 65 72 6d | 69 6e 61 6c 20 74 6f 6f |"No term|inal too|
|00000960| 6c 73 20 66 6f 75 6e 64 | 5c 6e 22 20 29 3b 0d 09 |ls found|\n" );..|
|00000970| 09 72 65 74 75 72 6e 20 | 32 3b 0d 09 09 7d 0d 09 |.return |2;...}..|
|00000980| 0d 09 65 72 72 20 3d 20 | 49 6e 69 74 43 4d 20 28 |..err = |InitCM (|
|00000990| 29 3b 0d 09 69 66 20 28 | 20 65 72 72 20 3d 3d 20 |);..if (| err == |
|000009a0| 63 6d 4e 6f 54 6f 6f 6c | 73 20 29 20 7b 0d 09 09 |cmNoTool|s ) {...|
|000009b0| 66 70 72 69 6e 74 66 20 | 28 20 73 74 64 65 72 72 |fprintf |( stderr|
|000009c0| 2c 20 22 4e 6f 20 63 6f | 6e 6e 65 63 74 69 6f 6e |, "No co|nnection|
|000009d0| 20 74 6f 6f 6c 73 20 66 | 6f 75 6e 64 5c 6e 22 20 | tools f|ound\n" |
|000009e0| 29 3b 0d 09 09 72 65 74 | 75 72 6e 20 32 3b 0d 09 |);...ret|urn 2;..|
|000009f0| 09 7d 0d 09 0d 09 65 72 | 72 20 3d 20 49 6e 69 74 |.}....er|r = Init|
|00000a00| 46 54 20 28 29 3b 0d 09 | 69 66 20 28 20 65 72 72 |FT ();..|if ( err|
|00000a10| 20 3d 3d 20 66 74 4e 6f | 54 6f 6f 6c 73 20 29 20 | == ftNo|Tools ) |
|00000a20| 7b 0d 09 09 66 70 72 69 | 6e 74 66 20 28 20 73 74 |{...fpri|ntf ( st|
|00000a30| 64 65 72 72 2c 20 22 4e | 6f 20 66 69 6c 65 20 74 |derr, "N|o file t|
|00000a40| 72 61 6e 73 66 65 72 20 | 74 6f 6f 6c 73 20 66 6f |ransfer |tools fo|
|00000a50| 75 6e 64 5c 6e 22 20 29 | 3b 0d 09 09 72 65 74 75 |und\n" )|;...retu|
|00000a60| 72 6e 20 32 3b 0d 09 09 | 7d 09 09 0d 0d 09 72 65 |rn 2;...|}.....re|
|00000a70| 74 75 72 6e 20 30 3b 0d | 09 7d 0d 0d 0d 76 6f 69 |turn 0;.|.}...voi|
|00000a80| 64 20 45 78 69 74 50 72 | 6f 63 20 28 20 76 6f 69 |d ExitPr|oc ( voi|
|00000a90| 64 20 29 20 7b 0d 09 6c | 6f 6e 67 09 6e 75 6d 42 |d ) {..l|ong.numB|
|00000aa0| 79 74 65 73 3b 0d 09 63 | 68 61 72 09 2a 74 68 65 |ytes;..c|har.*the|
|00000ab0| 42 75 66 66 65 72 3b 0d | 09 0d 09 0d 09 74 68 65 |Buffer;.|.....the|
|00000ac0| 42 75 66 66 65 72 20 3d | 20 63 75 72 42 75 66 66 |Buffer =| curBuff|
|00000ad0| 65 72 20 3d 3d 20 31 20 | 3f 20 66 42 75 66 66 65 |er == 1 |? fBuffe|
|00000ae0| 72 31 20 3a 20 66 42 75 | 66 66 65 72 32 3b 0d 09 |r1 : fBu|ffer2;..|
|00000af0| 6e 75 6d 42 79 74 65 73 | 20 3d 20 6e 65 78 74 43 |numBytes| = nextC|
|00000b00| 68 61 72 20 2d 20 74 68 | 65 42 75 66 66 65 72 3b |har - th|eBuffer;|
|00000b10| 0d 09 69 66 20 28 20 6e | 75 6d 42 79 74 65 73 20 |..if ( n|umBytes |
|00000b20| 3e 20 30 20 29 20 7b 0d | 09 09 43 68 65 63 6b 20 |> 0 ) {.|..Check |
|00000b30| 28 20 46 53 57 72 69 74 | 65 20 28 20 66 52 65 66 |( FSWrit|e ( fRef|
|00000b40| 4e 75 6d 2c 20 26 6e 75 | 6d 42 79 74 65 73 2c 20 |Num, &nu|mBytes, |
|00000b50| 74 68 65 42 75 66 66 65 | 72 20 29 2c 20 22 57 72 |theBuffe|r ), "Wr|
|00000b60| 69 74 65 20 2d 20 41 74 | 45 78 69 74 22 20 29 3b |ite - At|Exit" );|
|00000b70| 0d 09 09 7d 0d 0d 09 43 | 68 65 63 6b 20 28 20 46 |...}...C|heck ( F|
|00000b80| 53 43 6c 6f 73 65 20 28 | 20 66 52 65 66 4e 75 6d |SClose (| fRefNum|
|00000b90| 20 29 2c 20 22 46 53 43 | 6c 6f 73 65 22 20 29 3b | ), "FSC|lose" );|
|00000ba0| 0d 09 44 65 62 75 67 53 | 74 72 20 28 20 22 5c 70 |..DebugS|tr ( "\p|
|00000bb0| 42 65 66 6f 72 65 20 4b | 69 6c 6c 49 4f 22 20 29 |Before K|illIO" )|
|00000bc0| 3b 0d 09 0d 09 43 68 65 | 63 6b 20 28 20 43 4d 49 |;....Che|ck ( CMI|
|00000bd0| 4f 4b 69 6c 6c 20 28 73 | 74 72 65 61 6d 31 2c 20 |OKill (s|tream1, |
|00000be0| 63 6d 44 61 74 61 49 6e | 29 2c 20 22 43 4d 49 4f |cmDataIn|), "CMIO|
|00000bf0| 4b 69 6c 6c 20 2d 20 69 | 6e 70 75 74 22 29 3b 0d |Kill - i|nput");.|
|00000c00| 09 43 68 65 63 6b 20 28 | 20 43 4d 49 4f 4b 69 6c |.Check (| CMIOKil|
|00000c10| 6c 20 28 73 74 72 65 61 | 6d 32 2c 20 63 6d 44 61 |l (strea|m2, cmDa|
|00000c20| 74 61 49 6e 29 2c 20 22 | 43 4d 49 4f 4b 69 6c 6c |taIn), "|CMIOKill|
|00000c30| 20 2d 20 6f 75 74 70 75 | 74 22 29 3b 0d 0d 2f 2a | - outpu|t");../*|
|00000c40| 09 43 6c 6f 73 65 20 74 | 68 65 20 63 6f 6e 6e 65 |.Close t|he conne|
|00000c50| 63 74 69 6f 6e 20 61 6e | 64 20 64 69 73 70 6f 73 |ction an|d dispos|
|00000c60| 65 20 6f 66 20 74 68 65 | 20 63 6f 6e 6e 65 63 74 |e of the| connect|
|00000c70| 69 6f 6e 20 72 65 63 6f | 72 64 20 2a 2f 0d 09 69 |ion reco|rd */..i|
|00000c80| 66 20 28 20 73 74 72 65 | 61 6d 31 20 21 3d 20 4e |f ( stre|am1 != N|
|00000c90| 55 4c 4c 20 29 20 7b 0d | 09 09 43 68 65 63 6b 20 |ULL ) {.|..Check |
|00000ca0| 28 20 43 4d 43 6c 6f 73 | 65 20 28 20 73 74 72 65 |( CMClos|e ( stre|
|00000cb0| 61 6d 31 2c 20 66 61 6c | 73 65 2c 20 4e 55 4c 4c |am1, fal|se, NULL|
|00000cc0| 2c 20 30 2c 20 74 72 75 | 65 20 29 2c 20 22 43 4d |, 0, tru|e ), "CM|
|00000cd0| 43 4c 6f 73 65 20 2d 20 | 69 6e 70 75 74 22 20 29 |CLose - |input" )|
|00000ce0| 3b 0d 09 09 43 4d 44 69 | 73 70 6f 73 65 20 28 20 |;...CMDi|spose ( |
|00000cf0| 73 74 72 65 61 6d 31 20 | 29 3b 0d 09 09 7d 0d 0d |stream1 |);...}..|
|00000d00| 09 69 66 20 28 20 73 74 | 72 65 61 6d 32 20 21 3d |.if ( st|ream2 !=|
|00000d10| 20 4e 55 4c 4c 20 29 20 | 7b 0d 09 09 43 68 65 63 | NULL ) |{...Chec|
|00000d20| 6b 20 28 20 43 4d 43 6c | 6f 73 65 20 28 20 73 74 |k ( CMCl|ose ( st|
|00000d30| 72 65 61 6d 32 2c 20 66 | 61 6c 73 65 2c 20 4e 55 |ream2, f|alse, NU|
|00000d40| 4c 4c 2c 20 30 2c 20 74 | 72 75 65 20 29 2c 20 22 |LL, 0, t|rue ), "|
|00000d50| 43 4d 43 4c 6f 73 65 20 | 2d 20 6f 75 74 70 75 74 |CMCLose |- output|
|00000d60| 22 20 29 3b 0d 09 09 43 | 4d 44 69 73 70 6f 73 65 |" );...C|MDispose|
|00000d70| 20 28 20 73 74 72 65 61 | 6d 32 20 29 3b 0d 09 09 | ( strea|m2 );...|
|00000d80| 7d 0d 09 7d 0d 0d 43 6f | 6e 6e 48 61 6e 64 6c 65 |}..}..Co|nnHandle|
|00000d90| 09 49 6e 69 74 53 74 72 | 65 61 6d 20 28 20 73 68 |.InitStr|eam ( sh|
|00000da0| 6f 72 74 20 2a 70 72 6f | 63 49 44 20 29 20 7b 0d |ort *pro|cID ) {.|
|00000db0| 09 43 4d 42 75 66 66 65 | 72 53 69 7a 65 73 09 62 |.CMBuffe|rSizes.b|
|00000dc0| 53 69 7a 65 3b 0d 0d 2f | 2a 09 4f 70 65 6e 20 61 |Size;../|*.Open a|
|00000dd0| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 74 6f 6f 6c | connect|ion tool|
|00000de0| 20 2a 2f 0d 09 62 53 69 | 7a 65 20 5b 20 63 6d 44 | */..bSi|ze [ cmD|
|00000df0| 61 74 61 49 6e 20 5d 20 | 3d 20 42 55 46 5f 53 49 |ataIn ] |= BUF_SI|
|00000e00| 5a 45 3b 09 09 62 53 69 | 7a 65 20 5b 20 63 6d 44 |ZE;..bSi|ze [ cmD|
|00000e10| 61 74 61 4f 75 74 20 5d | 20 3d 20 42 55 46 5f 53 |ataOut ]| = BUF_S|
|00000e20| 49 5a 45 3b 0d 09 62 53 | 69 7a 65 20 5b 20 63 6d |IZE;..bS|ize [ cm|
|00000e30| 43 6e 74 6c 49 6e 20 5d | 20 3d 20 30 3b 09 09 09 |CntlIn ]| = 0;...|
|00000e40| 09 62 53 69 7a 65 20 5b | 20 63 6d 43 6e 74 6c 4f |.bSize [| cmCntlO|
|00000e50| 75 74 20 5d 20 3d 20 30 | 3b 0d 09 62 53 69 7a 65 |ut ] = 0|;..bSize|
|00000e60| 20 5b 20 63 6d 41 74 74 | 6e 49 6e 20 5d 20 3d 20 | [ cmAtt|nIn ] = |
|00000e70| 30 3b 09 09 09 09 62 53 | 69 7a 65 20 5b 20 63 6d |0;....bS|ize [ cm|
|00000e80| 41 74 74 6e 4f 75 74 20 | 5d 20 3d 20 30 3b 0d 09 |AttnOut |] = 0;..|
|00000e90| 62 53 69 7a 65 20 5b 20 | 63 6d 52 73 72 76 49 6e |bSize [ |cmRsrvIn|
|00000ea0| 20 5d 20 3d 20 30 3b 09 | 09 09 09 62 53 69 7a 65 | ] = 0;.|...bSize|
|00000eb0| 20 5b 20 63 6d 52 73 72 | 76 4f 75 74 20 5d 20 3d | [ cmRsr|vOut ] =|
|00000ec0| 20 30 3b 0d 09 2a 70 72 | 6f 63 49 44 20 3d 20 43 | 0;..*pr|ocID = C|
|00000ed0| 4d 47 65 74 50 72 6f 63 | 49 44 20 28 20 22 5c 70 |MGetProc|ID ( "\p|
|00000ee0| 53 65 72 69 61 6c 22 20 | 29 3b 0d 09 72 65 74 75 |Serial" |);..retu|
|00000ef0| 72 6e 20 43 4d 4e 65 77 | 20 28 20 2a 70 72 6f 63 |rn CMNew| ( *proc|
|00000f00| 49 44 2c 20 63 6d 51 75 | 69 65 74 20 2b 20 63 6d |ID, cmQu|iet + cm|
|00000f10| 4e 6f 4d 65 6e 75 73 2c | 20 62 53 69 7a 65 2c 20 |NoMenus,| bSize, |
|00000f20| 30 4c 2c 20 30 4c 20 29 | 3b 0d 09 7d 0d 0d 0d 2f |0L, 0L )|;..}.../|
|00000f30| 2a 09 43 61 6c 6c 65 64 | 20 61 74 20 69 6e 74 65 |*.Called| at inte|
|00000f40| 72 72 75 70 74 20 6c 65 | 76 65 6c 20 2a 2f 09 09 |rrupt le|vel */..|
|00000f50| 09 09 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 58 |...pasca|l void X|
|00000f60| 66 65 72 42 79 74 65 73 | 20 28 20 6c 6f 6e 67 20 |ferBytes| ( long |
|00000f70| 73 7a 2c 20 63 68 61 72 | 20 2a 62 75 66 66 65 72 |sz, char| *buffer|
|00000f80| 2c 20 63 68 61 72 20 64 | 69 72 20 29 20 7b 0d 0d |, char d|ir ) {..|
|00000f90| 09 77 68 69 6c 65 20 28 | 20 73 7a 2d 2d 20 3e 20 |.while (| sz-- > |
|00000fa0| 30 20 29 20 7b 0d 09 09 | 2a 6e 65 78 74 43 68 61 |0 ) {...|*nextCha|
|00000fb0| 72 2b 2b 20 3d 20 64 69 | 72 3b 0d 09 09 2a 6e 65 |r++ = di|r;...*ne|
|00000fc0| 78 74 43 68 61 72 2b 2b | 20 3d 20 2a 62 75 66 66 |xtChar++| = *buff|
|00000fd0| 65 72 2b 2b 3b 0d 09 09 | 69 66 20 28 20 63 75 72 |er++;...|if ( cur|
|00000fe0| 42 75 66 66 65 72 20 3d | 3d 20 31 20 29 20 7b 0d |Buffer =|= 1 ) {.|
|00000ff0| 09 09 09 69 66 20 28 20 | 6e 65 78 74 43 68 61 72 |...if ( |nextChar|
|00001000| 20 2d 20 66 42 75 66 66 | 65 72 31 20 3d 3d 20 46 | - fBuff|er1 == F|
|00001010| 49 4c 45 5f 53 49 5a 45 | 20 29 20 7b 0d 09 09 09 |ILE_SIZE| ) {....|
|00001020| 09 6e 65 78 74 43 68 61 | 72 20 3d 20 66 42 75 66 |.nextCha|r = fBuf|
|00001030| 66 65 72 32 3b 0d 09 09 | 09 09 63 75 72 42 75 66 |fer2;...|..curBuf|
|00001040| 66 65 72 20 3d 20 32 3b | 0d 09 09 09 09 7d 0d 09 |fer = 2;|.....}..|
|00001050| 09 09 7d 0d 09 09 65 6c | 73 65 20 7b 0d 09 09 09 |..}...el|se {....|
|00001060| 69 66 20 28 20 6e 65 78 | 74 43 68 61 72 20 2d 20 |if ( nex|tChar - |
|00001070| 66 42 75 66 66 65 72 32 | 20 3d 3d 20 46 49 4c 45 |fBuffer2| == FILE|
|00001080| 5f 53 49 5a 45 20 29 20 | 7b 0d 09 09 09 09 6e 65 |_SIZE ) |{.....ne|
|00001090| 78 74 43 68 61 72 20 3d | 20 66 42 75 66 66 65 72 |xtChar =| fBuffer|
|000010a0| 31 3b 0d 09 09 09 09 63 | 75 72 42 75 66 66 65 72 |1;.....c|urBuffer|
|000010b0| 20 3d 20 31 3b 0d 09 09 | 09 09 7d 0d 09 09 09 7d | = 1;...|..}....}|
|000010c0| 0d 09 09 7d 0d 09 7d 0d | 0d 2f 2a 09 49 6e 74 65 |...}..}.|./*.Inte|
|000010d0| 72 72 75 70 74 20 72 6f | 75 74 69 6e 65 20 2a 2f |rrupt ro|utine */|
|000010e0| 0d 70 61 73 63 61 6c 20 | 76 6f 69 64 20 52 65 61 |.pascal |void Rea|
|000010f0| 64 43 6f 6d 70 6c 65 74 | 69 6f 6e 31 20 28 20 43 |dComplet|ion1 ( C|
|00001100| 6f 6e 6e 48 61 6e 64 6c | 65 20 68 43 6f 6e 6e 20 |onnHandl|e hConn |
|00001110| 29 20 7b 0d 09 0d 09 69 | 66 20 28 28 2a 68 43 6f |) {....i|f ((*hCo|
|00001120| 6e 6e 29 2d 3e 65 72 72 | 43 6f 64 65 20 3d 3d 20 |nn)->err|Code == |
|00001130| 6e 6f 45 72 72 20 29 20 | 7b 0d 09 09 77 72 69 74 |noErr ) |{...writ|
|00001140| 65 53 69 7a 65 31 20 3d | 20 28 2a 68 43 6f 6e 6e |eSize1 =| (*hConn|
|00001150| 29 2d 3e 61 73 79 6e 63 | 43 6f 75 6e 74 20 5b 20 |)->async|Count [ |
|00001160| 63 6d 44 61 74 61 49 6e | 20 5d 3b 0d 09 09 58 66 |cmDataIn| ];...Xf|
|00001170| 65 72 42 79 74 65 73 20 | 28 20 77 72 69 74 65 53 |erBytes |( writeS|
|00001180| 69 7a 65 31 2c 20 62 75 | 66 66 65 72 31 2c 20 27 |ize1, bu|ffer1, '|
|00001190| 31 27 20 29 3b 0d 09 09 | 43 4d 57 72 69 74 65 20 |1' );...|CMWrite |
|000011a0| 28 20 73 74 72 65 61 6d | 32 2c 20 62 75 66 66 65 |( stream|2, buffe|
|000011b0| 72 31 2c 20 26 77 72 69 | 74 65 53 69 7a 65 31 2c |r1, &wri|teSize1,|
|000011c0| 20 0d 09 09 09 09 09 63 | 6d 44 61 74 61 2c 20 74 | ......c|mData, t|
|000011d0| 72 75 65 2c 20 28 50 72 | 6f 63 50 74 72 29 20 57 |rue, (Pr|ocPtr) W|
|000011e0| 72 69 74 65 43 6f 6d 70 | 6c 65 74 69 6f 6e 47 6c |riteComp|letionGl|
|000011f0| 75 65 31 2c 20 30 2c 20 | 69 6e 46 6c 61 67 73 31 |ue1, 0, |inFlags1|
|00001200| 20 29 3b 0d 09 09 7d 0d | 09 7d 0d 0d 0d 2f 2a 09 | );...}.|.}.../*.|
|00001210| 49 6e 74 65 72 72 75 70 | 74 20 72 6f 75 74 69 6e |Interrup|t routin|
|00001220| 65 20 2a 2f 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |e */.pas|cal void|
|00001230| 20 57 72 69 74 65 43 6f | 6d 70 6c 65 74 69 6f 6e | WriteCo|mpletion|
|00001240| 31 20 28 20 43 6f 6e 6e | 48 61 6e 64 6c 65 20 68 |1 ( Conn|Handle h|
|00001250| 43 6f 6e 6e 20 29 20 7b | 0d 09 0d 2f 2a 09 72 65 |Conn ) {|.../*.re|
|00001260| 2d 65 6e 61 62 6c 65 20 | 74 68 65 20 72 65 61 64 |-enable |the read|
|00001270| 20 2a 2f 0d 09 69 66 20 | 28 28 2a 68 43 6f 6e 6e | */..if |((*hConn|
|00001280| 29 2d 3e 65 72 72 43 6f | 64 65 20 3d 3d 20 6e 6f |)->errCo|de == no|
|00001290| 45 72 72 20 29 20 7b 0d | 09 09 72 65 61 64 53 69 |Err ) {.|..readSi|
|000012a0| 7a 65 31 20 3d 20 31 3b | 0d 09 09 43 4d 52 65 61 |ze1 = 1;|...CMRea|
|000012b0| 64 20 28 20 73 74 72 65 | 61 6d 31 2c 20 62 75 66 |d ( stre|am1, buf|
|000012c0| 66 65 72 31 2c 20 26 72 | 65 61 64 53 69 7a 65 31 |fer1, &r|eadSize1|
|000012d0| 2c 0d 09 09 09 09 63 6d | 44 61 74 61 2c 20 74 72 |,.....cm|Data, tr|
|000012e0| 75 65 2c 20 28 50 72 6f | 63 50 74 72 29 20 52 65 |ue, (Pro|cPtr) Re|
|000012f0| 61 64 43 6f 6d 70 6c 65 | 74 69 6f 6e 47 6c 75 65 |adComple|tionGlue|
|00001300| 31 2c 20 30 2c 20 26 69 | 6e 46 6c 61 67 73 31 20 |1, 0, &i|nFlags1 |
|00001310| 29 3b 0d 09 09 7d 0d 09 | 7d 0d 0d 0d 2f 2a 09 49 |);...}..|}.../*.I|
|00001320| 6e 74 65 72 72 75 70 74 | 20 72 6f 75 74 69 6e 65 |nterrupt| routine|
|00001330| 20 2a 2f 0d 70 61 73 63 | 61 6c 20 76 6f 69 64 20 | */.pasc|al void |
|00001340| 52 65 61 64 43 6f 6d 70 | 6c 65 74 69 6f 6e 32 20 |ReadComp|letion2 |
|00001350| 28 20 43 6f 6e 6e 48 61 | 6e 64 6c 65 20 68 43 6f |( ConnHa|ndle hCo|
|00001360| 6e 6e 20 29 20 7b 0d 0d | 09 69 66 20 28 28 2a 68 |nn ) {..|.if ((*h|
|00001370| 43 6f 6e 6e 29 2d 3e 65 | 72 72 43 6f 64 65 20 3d |Conn)->e|rrCode =|
|00001380| 3d 20 6e 6f 45 72 72 20 | 29 20 7b 0d 09 09 77 72 |= noErr |) {...wr|
|00001390| 69 74 65 53 69 7a 65 32 | 20 3d 20 28 2a 68 43 6f |iteSize2| = (*hCo|
|000013a0| 6e 6e 29 2d 3e 61 73 79 | 6e 63 43 6f 75 6e 74 20 |nn)->asy|ncCount |
|000013b0| 5b 20 63 6d 44 61 74 61 | 49 6e 20 5d 3b 0d 09 09 |[ cmData|In ];...|
|000013c0| 58 66 65 72 42 79 74 65 | 73 20 28 20 77 72 69 74 |XferByte|s ( writ|
|000013d0| 65 53 69 7a 65 32 2c 20 | 62 75 66 66 65 72 32 2c |eSize2, |buffer2,|
|000013e0| 20 27 32 27 20 29 3b 0d | 09 09 43 4d 57 72 69 74 | '2' );.|..CMWrit|
|000013f0| 65 20 28 20 73 74 72 65 | 61 6d 31 2c 20 62 75 66 |e ( stre|am1, buf|
|00001400| 66 65 72 32 2c 20 26 77 | 72 69 74 65 53 69 7a 65 |fer2, &w|riteSize|
|00001410| 32 2c 20 0d 09 09 09 09 | 09 63 6d 44 61 74 61 2c |2, .....|.cmData,|
|00001420| 20 74 72 75 65 2c 20 28 | 50 72 6f 63 50 74 72 29 | true, (|ProcPtr)|
|00001430| 20 57 72 69 74 65 43 6f | 6d 70 6c 65 74 69 6f 6e | WriteCo|mpletion|
|00001440| 47 6c 75 65 32 2c 20 30 | 2c 20 69 6e 46 6c 61 67 |Glue2, 0|, inFlag|
|00001450| 73 32 20 29 3b 0d 09 09 | 7d 0d 09 7d 0d 0d 0d 2f |s2 );...|}..}.../|
|00001460| 2a 09 49 6e 74 65 72 72 | 75 70 74 20 72 6f 75 74 |*.Interr|upt rout|
|00001470| 69 6e 65 20 2a 2f 0d 70 | 61 73 63 61 6c 20 76 6f |ine */.p|ascal vo|
|00001480| 69 64 20 57 72 69 74 65 | 43 6f 6d 70 6c 65 74 69 |id Write|Completi|
|00001490| 6f 6e 32 20 28 20 43 6f | 6e 6e 48 61 6e 64 6c 65 |on2 ( Co|nnHandle|
|000014a0| 20 68 43 6f 6e 6e 20 29 | 20 7b 0d 0d 2f 2a 09 72 | hConn )| {../*.r|
|000014b0| 65 2d 65 6e 61 62 6c 65 | 20 74 68 65 20 72 65 61 |e-enable| the rea|
|000014c0| 64 20 2a 2f 0d 09 69 66 | 20 28 28 2a 68 43 6f 6e |d */..if| ((*hCon|
|000014d0| 6e 29 2d 3e 65 72 72 43 | 6f 64 65 20 3d 3d 20 6e |n)->errC|ode == n|
|000014e0| 6f 45 72 72 20 29 20 7b | 0d 09 09 72 65 61 64 53 |oErr ) {|...readS|
|000014f0| 69 7a 65 32 20 3d 20 31 | 3b 0d 09 09 43 4d 52 65 |ize2 = 1|;...CMRe|
|00001500| 61 64 20 28 20 73 74 72 | 65 61 6d 32 2c 20 62 75 |ad ( str|eam2, bu|
|00001510| 66 66 65 72 32 2c 20 26 | 72 65 61 64 53 69 7a 65 |ffer2, &|readSize|
|00001520| 32 2c 0d 09 09 09 09 63 | 6d 44 61 74 61 2c 20 74 |2,.....c|mData, t|
|00001530| 72 75 65 2c 20 28 50 72 | 6f 63 50 74 72 29 20 52 |rue, (Pr|ocPtr) R|
|00001540| 65 61 64 43 6f 6d 70 6c | 65 74 69 6f 6e 47 6c 75 |eadCompl|etionGlu|
|00001550| 65 32 2c 20 30 2c 20 26 | 69 6e 46 6c 61 67 73 32 |e2, 0, &|inFlags2|
|00001560| 20 29 3b 0d 09 09 7d 0d | 09 7d 0d 0d 0d 69 6e 74 | );...}.|.}...int|
|00001570| 20 6d 61 69 6e 20 28 20 | 69 6e 74 20 61 72 67 63 | main ( |int argc|
|00001580| 2c 20 63 68 61 72 20 2a | 61 72 67 76 5b 5d 20 29 |, char *|argv[] )|
|00001590| 20 7b 0d 09 73 68 6f 72 | 74 09 65 72 72 3b 0d 09 | {..shor|t.err;..|
|000015a0| 6c 6f 6e 67 09 6e 75 6d | 42 79 74 65 73 2c 20 63 |long.num|Bytes, c|
|000015b0| 6e 74 3b 0d 09 63 68 61 | 72 09 2a 74 68 65 42 75 |nt;..cha|r.*theBu|
|000015c0| 66 66 65 72 3b 0d 09 0d | 09 69 66 20 28 20 65 72 |ffer;...|.if ( er|
|000015d0| 72 20 3d 20 49 6e 69 74 | 41 6c 6c 20 28 20 29 20 |r = Init|All ( ) |
|000015e0| 21 3d 20 30 20 29 0d 09 | 09 65 78 69 74 20 28 20 |!= 0 )..|.exit ( |
|000015f0| 65 72 72 20 29 3b 0d 09 | 0d 09 69 66 20 28 20 61 |err );..|..if ( a|
|00001600| 72 67 63 20 21 3d 20 32 | 20 29 20 7b 0d 09 09 66 |rgc != 2| ) {...f|
|00001610| 70 72 69 6e 74 66 20 28 | 20 73 74 64 65 72 72 2c |printf (| stderr,|
|00001620| 20 22 55 73 61 67 65 3a | 20 25 73 20 3c 66 69 6c | "Usage:| %s <fil|
|00001630| 65 4e 61 6d 65 3e 5c 6e | 22 2c 20 61 72 67 76 20 |eName>\n|", argv |
|00001640| 5b 20 30 20 5d 20 29 3b | 0d 09 09 65 78 69 74 20 |[ 0 ] );|...exit |
|00001650| 28 20 31 20 29 3b 0d 09 | 09 7d 0d 09 0d 09 63 32 |( 1 );..|.}....c2|
|00001660| 70 73 74 72 20 28 20 61 | 72 67 76 20 5b 20 31 20 |pstr ( a|rgv [ 1 |
|00001670| 5d 20 29 3b 0d 09 63 75 | 72 42 75 66 66 65 72 20 |] );..cu|rBuffer |
|00001680| 3d 20 6c 61 73 74 42 75 | 66 66 65 72 20 3d 20 31 |= lastBu|ffer = 1|
|00001690| 3b 0d 09 6e 65 78 74 43 | 68 61 72 20 3d 20 66 42 |;..nextC|har = fB|
|000016a0| 75 66 66 65 72 31 3b 09 | 0d 09 43 68 65 63 6b 20 |uffer1;.|..Check |
|000016b0| 28 20 43 72 65 61 74 65 | 20 28 20 61 72 67 76 20 |( Create| ( argv |
|000016c0| 5b 20 31 20 5d 2c 20 30 | 2c 20 27 4d 50 53 20 27 |[ 1 ], 0|, 'MPS '|
|000016d0| 2c 20 27 54 45 58 54 27 | 20 29 2c 20 22 43 72 65 |, 'TEXT'| ), "Cre|
|000016e0| 61 74 65 22 20 29 3b 0d | 09 43 68 65 63 6b 20 28 |ate" );.|.Check (|
|000016f0| 20 46 53 4f 70 65 6e 20 | 28 20 61 72 67 76 20 5b | FSOpen |( argv [|
|00001700| 20 31 20 5d 2c 20 30 2c | 20 26 66 52 65 66 4e 75 | 1 ], 0,| &fRefNu|
|00001710| 6d 20 29 2c 20 22 4f 70 | 65 6e 22 20 29 3b 0d 09 |m ), "Op|en" );..|
|00001720| 43 68 65 63 6b 20 28 20 | 53 65 74 46 50 6f 73 20 |Check ( |SetFPos |
|00001730| 28 20 66 52 65 66 4e 75 | 6d 2c 20 66 73 46 72 6f |( fRefNu|m, fsFro|
|00001740| 6d 53 74 61 72 74 2c 20 | 30 4c 20 29 2c 20 22 53 |mStart, |0L ), "S|
|00001750| 65 74 46 50 6f 73 22 20 | 29 3b 0d 09 61 74 65 78 |etFPos" |);..atex|
|00001760| 69 74 20 28 20 45 78 69 | 74 50 72 6f 63 20 29 3b |it ( Exi|tProc );|
|00001770| 0d 0d 2f 2a 09 4f 70 65 | 6e 20 61 20 63 6f 6e 6e |../*.Ope|n a conn|
|00001780| 65 63 74 69 6f 6e 20 74 | 6f 6f 6c 20 2a 2f 0d 09 |ection t|ool */..|
|00001790| 73 74 72 65 61 6d 31 20 | 3d 20 49 6e 69 74 53 74 |stream1 |= InitSt|
|000017a0| 72 65 61 6d 20 28 20 26 | 70 72 6f 63 49 44 31 20 |ream ( &|procID1 |
|000017b0| 29 3b 0d 09 69 66 20 28 | 20 73 74 72 65 61 6d 31 |);..if (| stream1|
|000017c0| 20 3d 3d 20 4e 55 4c 4c | 20 29 20 7b 0d 09 09 66 | == NULL| ) {...f|
|000017d0| 70 72 69 6e 74 66 20 28 | 20 73 74 64 65 72 72 2c |printf (| stderr,|
|000017e0| 20 22 43 61 6e 6e 6f 74 | 20 63 72 65 61 74 65 20 | "Cannot| create |
|000017f0| 69 6e 70 75 74 20 68 61 | 6e 64 6c 65 5c 6e 22 20 |input ha|ndle\n" |
|00001800| 29 3b 0d 09 09 72 65 74 | 75 72 6e 20 33 3b 0d 09 |);...ret|urn 3;..|
|00001810| 09 7d 0d 09 09 0d 2f 2a | 09 4f 70 65 6e 20 61 6e |.}..../*|.Open an|
|00001820| 6f 74 68 65 72 20 63 6f | 6e 6e 65 63 74 69 6f 6e |other co|nnection|
|00001830| 20 74 6f 6f 6c 20 2a 2f | 0d 09 73 74 72 65 61 6d | tool */|..stream|
|00001840| 32 20 3d 20 49 6e 69 74 | 53 74 72 65 61 6d 20 28 |2 = Init|Stream (|
|00001850| 20 26 70 72 6f 63 49 44 | 31 20 29 3b 0d 09 69 66 | &procID|1 );..if|
|00001860| 20 28 20 73 74 72 65 61 | 6d 32 20 3d 3d 20 4e 55 | ( strea|m2 == NU|
|00001870| 4c 4c 20 29 20 7b 0d 09 | 09 66 70 72 69 6e 74 66 |LL ) {..|.fprintf|
|00001880| 20 28 20 73 74 64 65 72 | 72 2c 20 22 43 61 6e 6e | ( stder|r, "Cann|
|00001890| 6f 74 20 63 72 65 61 74 | 65 20 6f 75 74 70 75 74 |ot creat|e output|
|000018a0| 20 68 61 6e 64 6c 65 5c | 6e 22 20 29 3b 0d 09 09 | handle\|n" );...|
|000018b0| 72 65 74 75 72 6e 20 33 | 3b 0d 09 09 7d 0d 0d 2f |return 3|;...}../|
|000018c0| 2a 09 43 6f 6e 66 69 67 | 75 72 65 20 74 68 65 20 |*.Config|ure the |
|000018d0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 2a 2f 0d 20 2f |connecti|on */. /|
|000018e0| 2f 09 44 65 62 75 67 53 | 74 72 20 28 20 22 5c 70 |/.DebugS|tr ( "\p|
|000018f0| 43 6f 6e 66 69 67 22 20 | 29 3b 0d 09 43 68 65 63 |Config" |);..Chec|
|00001900| 6b 20 28 20 43 4d 53 65 | 74 43 6f 6e 66 69 67 20 |k ( CMSe|tConfig |
|00001910| 28 20 73 74 72 65 61 6d | 31 2c 20 49 4e 43 4f 4e |( stream|1, INCON|
|00001920| 46 49 47 53 54 52 20 29 | 2c 20 22 43 4d 53 65 74 |FIGSTR )|, "CMSet|
|00001930| 43 6f 6e 66 69 67 20 2d | 20 49 6e 22 20 29 3b 0d |Config -| In" );.|
|00001940| 09 43 68 65 63 6b 20 28 | 20 43 4d 4f 70 65 6e 20 |.Check (| CMOpen |
|00001950| 28 20 73 74 72 65 61 6d | 31 2c 20 66 61 6c 73 65 |( stream|1, false|
|00001960| 2c 20 4e 55 4c 4c 2c 20 | 2d 31 20 29 2c 20 22 43 |, NULL, |-1 ), "C|
|00001970| 4d 4f 70 65 6e 20 2d 20 | 49 6e 22 20 29 3b 0d 09 |MOpen - |In" );..|
|00001980| 43 68 65 63 6b 20 28 20 | 43 4d 4c 69 73 74 65 6e |Check ( |CMListen|
|00001990| 20 28 20 73 74 72 65 61 | 6d 31 2c 20 66 61 6c 73 | ( strea|m1, fals|
|000019a0| 65 2c 20 4e 55 4c 4c 2c | 20 2d 31 20 29 2c 20 22 |e, NULL,| -1 ), "|
|000019b0| 43 4d 4c 69 73 74 65 6e | 20 2d 20 49 6e 22 20 29 |CMListen| - In" )|
|000019c0| 3b 0d 09 0d 09 43 68 65 | 63 6b 20 28 20 43 4d 53 |;....Che|ck ( CMS|
|000019d0| 65 74 43 6f 6e 66 69 67 | 20 28 20 73 74 72 65 61 |etConfig| ( strea|
|000019e0| 6d 32 2c 20 4f 55 54 43 | 4f 4e 46 49 47 53 54 52 |m2, OUTC|ONFIGSTR|
|000019f0| 20 29 2c 20 22 43 4d 53 | 65 74 43 6f 6e 66 69 67 | ), "CMS|etConfig|
|00001a00| 20 2d 20 4f 75 74 22 20 | 29 3b 0d 09 43 68 65 63 | - Out" |);..Chec|
|00001a10| 6b 20 28 20 43 4d 4f 70 | 65 6e 20 28 20 73 74 72 |k ( CMOp|en ( str|
|00001a20| 65 61 6d 32 2c 20 66 61 | 6c 73 65 2c 20 4e 55 4c |eam2, fa|lse, NUL|
|00001a30| 4c 2c 20 2d 31 20 29 2c | 20 22 43 4d 4f 70 65 6e |L, -1 ),| "CMOpen|
|00001a40| 20 2d 20 4f 75 74 22 20 | 29 3b 0d 09 43 68 65 63 | - Out" |);..Chec|
|00001a50| 6b 20 28 20 43 4d 4c 69 | 73 74 65 6e 20 28 20 73 |k ( CMLi|sten ( s|
|00001a60| 74 72 65 61 6d 32 2c 20 | 66 61 6c 73 65 2c 20 4e |tream2, |false, N|
|00001a70| 55 4c 4c 2c 20 2d 31 20 | 29 2c 20 22 43 4d 4c 69 |ULL, -1 |), "CMLi|
|00001a80| 73 74 65 6e 20 2d 20 4f | 75 74 22 20 29 3b 0d 0d |sten - O|ut" );..|
|00001a90| 2f 2a 09 44 6f 20 61 6e | 20 61 6e 73 79 63 68 20 |/*.Do an| ansych |
|00001aa0| 72 65 61 64 20 6f 6e 20 | 74 68 65 20 69 6e 70 75 |read on |the inpu|
|00001ab0| 74 20 73 74 72 65 61 6d | 20 2a 2f 0d 09 72 65 61 |t stream| */..rea|
|00001ac0| 64 53 69 7a 65 31 20 3d | 20 31 3b 0d 09 43 68 65 |dSize1 =| 1;..Che|
|00001ad0| 63 6b 20 28 20 43 4d 52 | 65 61 64 20 28 20 73 74 |ck ( CMR|ead ( st|
|00001ae0| 72 65 61 6d 31 2c 20 62 | 75 66 66 65 72 31 2c 20 |ream1, b|uffer1, |
|00001af0| 26 72 65 61 64 53 69 7a | 65 31 2c 0d 09 09 09 09 |&readSiz|e1,.....|
|00001b00| 09 09 09 09 63 6d 44 61 | 74 61 2c 20 74 72 75 65 |....cmDa|ta, true|
|00001b10| 2c 20 28 50 72 6f 63 50 | 74 72 29 20 52 65 61 64 |, (ProcP|tr) Read|
|00001b20| 43 6f 6d 70 6c 65 74 69 | 6f 6e 47 6c 75 65 31 2c |Completi|onGlue1,|
|00001b30| 20 30 2c 20 26 69 6e 46 | 6c 61 67 73 31 20 29 2c | 0, &inF|lags1 ),|
|00001b40| 20 22 43 4d 52 65 61 64 | 22 20 29 3b 0d 09 72 65 | "CMRead|" );..re|
|00001b50| 61 64 53 69 7a 65 32 20 | 3d 20 31 3b 0d 09 43 68 |adSize2 |= 1;..Ch|
|00001b60| 65 63 6b 20 28 20 43 4d | 52 65 61 64 20 28 20 73 |eck ( CM|Read ( s|
|00001b70| 74 72 65 61 6d 32 2c 20 | 62 75 66 66 65 72 32 2c |tream2, |buffer2,|
|00001b80| 20 26 72 65 61 64 53 69 | 7a 65 32 2c 0d 09 09 09 | &readSi|ze2,....|
|00001b90| 09 09 09 09 09 63 6d 44 | 61 74 61 2c 20 74 72 75 |.....cmD|ata, tru|
|00001ba0| 65 2c 20 28 50 72 6f 63 | 50 74 72 29 20 52 65 61 |e, (Proc|Ptr) Rea|
|00001bb0| 64 43 6f 6d 70 6c 65 74 | 69 6f 6e 47 6c 75 65 32 |dComplet|ionGlue2|
|00001bc0| 2c 20 30 2c 20 26 69 6e | 46 6c 61 67 73 32 20 29 |, 0, &in|Flags2 )|
|00001bd0| 2c 20 22 43 4d 52 65 61 | 64 22 20 29 3b 0d 09 63 |, "CMRea|d" );..c|
|00001be0| 6e 74 20 3d 20 30 3b 0d | 09 77 68 69 6c 65 20 28 |nt = 0;.|.while (|
|00001bf0| 20 74 72 75 65 20 29 20 | 7b 0d 09 09 0d 09 2f 2a | true ) |{...../*|
|00001c00| 09 77 72 69 74 65 20 6f | 75 74 20 61 6e 79 20 62 |.write o|ut any b|
|00001c10| 75 66 66 65 72 65 64 20 | 64 61 74 61 20 2a 2f 0d |uffered |data */.|
|00001c20| 09 09 69 66 20 28 20 6c | 61 73 74 42 75 66 66 65 |..if ( l|astBuffe|
|00001c30| 72 20 21 3d 20 63 75 72 | 42 75 66 66 65 72 20 29 |r != cur|Buffer )|
|00001c40| 20 7b 0d 09 09 09 66 70 | 72 69 6e 74 66 20 28 20 | {....fp|rintf ( |
|00001c50| 73 74 64 65 72 72 2c 20 | 22 57 72 69 74 69 6e 67 |stderr, |"Writing|
|00001c60| 20 46 69 6c 65 5c 6e 22 | 20 29 3b 0d 09 09 09 6e | File\n"| );....n|
|00001c70| 75 6d 42 79 74 65 73 20 | 3d 20 46 49 4c 45 5f 53 |umBytes |= FILE_S|
|00001c80| 49 5a 45 3b 0d 09 09 09 | 74 68 65 42 75 66 66 65 |IZE;....|theBuffe|
|00001c90| 72 20 3d 20 6c 61 73 74 | 42 75 66 66 65 72 20 3d |r = last|Buffer =|
|00001ca0| 3d 20 31 20 3f 20 66 42 | 75 66 66 65 72 31 20 3a |= 1 ? fB|uffer1 :|
|00001cb0| 20 66 42 75 66 66 65 72 | 32 3b 0d 09 09 09 43 68 | fBuffer|2;....Ch|
|00001cc0| 65 63 6b 20 28 20 46 53 | 57 72 69 74 65 20 28 20 |eck ( FS|Write ( |
|00001cd0| 66 52 65 66 4e 75 6d 2c | 20 26 6e 75 6d 42 79 74 |fRefNum,| &numByt|
|00001ce0| 65 73 2c 20 74 68 65 42 | 75 66 66 65 72 20 29 2c |es, theB|uffer ),|
|00001cf0| 20 22 46 53 57 72 69 74 | 65 22 20 29 3b 0d 09 09 | "FSWrit|e" );...|
|00001d00| 09 6c 61 73 74 42 75 66 | 66 65 72 20 3d 20 63 75 |.lastBuf|fer = cu|
|00001d10| 72 42 75 66 66 65 72 3b | 0d 09 09 09 7d 0d 09 09 |rBuffer;|....}...|
|00001d20| 0d 09 09 63 6e 74 2b 2b | 3b 0d 09 09 69 66 20 28 |...cnt++|;...if (|
|00001d30| 20 63 6e 74 20 25 20 32 | 35 36 20 3d 3d 20 30 20 | cnt % 2|56 == 0 |
|00001d40| 29 20 7b 0d 09 09 09 43 | 4d 49 64 6c 65 20 28 20 |) {....C|MIdle ( |
|00001d50| 73 74 72 65 61 6d 31 20 | 29 3b 0d 09 09 09 43 4d |stream1 |);....CM|
|00001d60| 49 64 6c 65 20 28 20 73 | 74 72 65 61 6d 32 20 29 |Idle ( s|tream2 )|
|00001d70| 3b 0d 09 09 09 53 70 69 | 6e 43 75 72 73 6f 72 20 |;....Spi|nCursor |
|00001d80| 28 20 31 20 29 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |( 1 );..|..}.....|
|00001d90| 09 09 7d 0d 0d 09 72 65 | 74 75 72 6e 20 30 3b 0d |..}...re|turn 0;.|
|00001da0| 09 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.}......|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 07 |........|........|
|00001e30| 0a 52 65 63 6f 72 64 65 | 72 2e 63 72 02 00 00 00 |.Recorde|r.cr....|
|00001e40| 54 45 58 54 4d 50 53 20 | 01 00 00 28 00 60 00 00 |TEXTMPS |...(.`..|
|00001e50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 28 00 60 |..TEXTMP|S ...(.`|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 a2 8d f2 5e 00 00 | 1d 23 00 00 01 7e 02 07 |.....^..|.#...~..|
|00001e80| 02 07 02 07 02 07 02 07 | 02 07 02 07 02 07 02 08 |........|........|
|00001e90| 02 07 02 07 02 07 02 07 | 02 07 02 07 02 07 02 07 |........|........|
|00001ea0| 02 07 02 07 02 08 02 07 | 02 02 08 01 02 02 04 05 |........|........|
|00001eb0| 02 07 04 05 02 07 04 05 | 02 07 04 07 02 07 02 07 |........|........|
|00001ec0| 02 09 02 07 02 07 04 05 | 04 05 04 05 04 07 04 07 |........|........|
|00001ed0| 04 05 04 05 02 07 04 05 | 04 05 04 05 04 05 04 07 |........|........|
|00001ee0| 04 05 01 09 01 09 01 09 | 02 02 00 00 00 09 00 09 |........|........|
|00001ef0| 02 07 00 09 00 09 00 09 | 00 09 01 08 01 08 01 08 |........|........|
|00001f00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 0a 00 a8 |...H..Mo|naco....|
|00001f10| 00 00 00 09 00 2d 00 2e | 02 04 02 0a 7f ff 00 b3 |.....-..|........|
|00001f20| 00 00 00 09 00 2d 00 06 | 00 04 00 3c 00 24 01 dd |.....-..|...<.$..|
|00001f30| 02 3d 00 3c 00 24 01 dd | 02 3d a2 9c a3 f5 00 00 |.=.<.$..|.=......|
|00001f40| 0b 43 00 00 0b 43 00 00 | 0a 3c 01 00 00 00 01 00 |.C...C..|.<......|
|00001f50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 0c 20 2c |...L...L|...2.. ,|
|00001f60| 06 fc 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001f70| 00 0a 03 ed ff ff 00 00 | 00 00 00 0d 58 d0 00 00 |........|....X...|
+--------+-------------------------+-------------------------+--------+--------+